sims <- 1000
nobs <- 1000

source("dataset_generate.R")
#source("pscore_estimation_core1.R")

set.seed(183910)
simdata.A.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "A"))
save(simdata.A.obs1000.reps1000,file="RData.simdata.A.obs1000.reps1000")

set.seed(183910)
simdata.B.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "B"))
save(simdata.B.obs1000.reps1000,file="RData.simdata.B.obs1000.reps1000")

set.seed(183910)
simdata.C.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "C"))
save(simdata.C.obs1000.reps1000,file="RData.simdata.C.obs1000.reps1000")

set.seed(183910)
simdata.D.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "D"))
save(simdata.D.obs1000.reps1000,file="RData.simdata.D.obs1000.reps1000")

set.seed(183910)
simdata.E.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "E"))
save(simdata.E.obs1000.reps1000,file="RData.simdata.E.obs1000.reps1000")

set.seed(183910)
simdata.F.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "F"))
save(simdata.F.obs1000.reps1000,file="RData.simdata.F.obs1000.reps1000")

set.seed(183910)
simdata.G.obs1000.reps1000 <- replicate(sims, F.generate(nobs, "G"))
save(simdata.G.obs1000.reps1000,file="RData.simdata.G.obs1000.reps1000")



